home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 32 / PC Gamer IT CD 32 1-2.iso / ELINK / 14-DAY / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 152 < prev    next >
Encoding:
Text File  |  1997-02-20  |  20.5 KB  |  787 lines
  1. // -----
  2. // HToolbar.txt = VDL152.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. //Toolbar
  8.  
  9.  
  10.  
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  14.  
  15. //This section contains all localizable string constants for this VDL program. Be sure to 
  16. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  17. //You may also flatten multiline constants into a single line, if you prefer
  18.  
  19. #define kLit1 "New Page"
  20. #define kLit2 "Open"
  21. #define kLit3 "Save"
  22. #define kLit4 "Print"
  23. #define kLit5 "Edit Page"
  24. #define kLit6 "Preview Page"
  25. #define kLit7 "Edit HTML Source"
  26. #define kLit8 "Edit Frames"
  27. #define kLit9 "Preview in Browser"
  28. #define kLit49 "Publish"
  29. #define kLit10 "Object Editor"
  30. #define kLit11 "Link Editor"
  31. #define kLit12 "Document Options"
  32. #define kLit13 "New Entry"
  33. #define kLit14 "Insert Anchor"
  34. #define kLit15 "Insert Link To File"
  35. #define kLit16 "Insert Image"
  36. #define kLit17 "Insert Horizontal Rule"
  37. #define kLit18 "Insert Table"
  38. #define kLit19 "Align Text Left "
  39. #define kLit20 "Align Text Center"
  40. #define kLit21 "Align Text Right"
  41. #define kLit22 "Subdivide Vertically"
  42. #define kLit23 "Subdivide Horizontally"
  43. #define kLit24 "Insert CheckBox"
  44. #define kLit25 "Paragraph Format"
  45. #define kLit26 "Normal"
  46. #define kLit27 "Preformatted"
  47. #define kLit28 "Address"
  48. #define kLit29 "Heading 1"
  49. #define kLit30 "Heading 2"
  50. #define kLit31 "Heading 3"
  51. #define kLit32 "Heading 4"
  52. #define kLit33 "Heading 5"
  53. #define kLit34 "Heading 6"
  54. #define kLit35 "Bullet List"
  55. #define kLit36 "Numbered List"
  56. #define kLit37 "Term"
  57. #define kLit38 "Definition"
  58. #define kLit39 "Make Bullet List Entry"
  59. #define kLit40 "Indent"
  60. #define kLit41 "Outdent"
  61. #define kLit42 "Smaller Text"
  62. #define kLit43 "Larger Text"
  63. #define kLit44 "Bold"
  64. #define kLit45 "Italic"
  65. #define kLit46 "Teletype"
  66. #define kLit47 "Make Numbered List Entry"
  67. #define kLit48 "Add Frame..."
  68.  
  69. //Localized Fonts
  70.  
  71. #if Platform_Mac
  72. #define kHelpFont Font = {Geneva, 9, {Italic}}
  73. #endif
  74.  
  75. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  76. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  77. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  78.  
  79.  
  80.  
  81. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  82. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  83. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  84.  
  85. //This section contains integer constants that are used to format this VDL program.
  86. //These are localizable - they only need to be changed if the localized strings 
  87. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  88. //Width of the popup menu controlling paragraph width (the only popup)
  89. #define kParagraphStylePopupWidth 124
  90.  
  91. #if Platform_Mac
  92. //Width and height of the help view
  93. #define kHelpViewWidth 200
  94. #define kHelpViewHeight 23
  95. #endif
  96.  
  97. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  98. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  99. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  100.  
  101. //No further localizable data past this point
  102.  
  103. /************************** END LOCALIZABLE DATA ***************************************************/
  104. /************************** END LOCALIZABLE DATA ***************************************************/
  105. /************************** END LOCALIZABLE DATA ***************************************************/
  106.  
  107.  
  108.  
  109. #ifdef TryMe
  110. #define InDocWindow 1
  111. #define LITE_VERSION 0
  112. #endif
  113.  
  114.  
  115. #define EH EnabledHelpString =
  116.  
  117. // Define(ToolSep)
  118.    // Spacer(Height = 20, Width = 1, BackColor = {0,0,0});
  119.     // cicn(13590, Width=1, Height=20);
  120.  
  121. #if Platform_Win
  122.     #define ToolSep 
  123.     #define CaseSafeToolSep Spacer(Height = 0, Width = 0);
  124. #else
  125.     #define ToolSep GenericView("ToolSepView", SepHeight = 23);
  126.     #define CaseSafeToolSep GenericView("ToolSepView", SepHeight = 23);
  127. #endif
  128.  
  129. #if InDocWindow
  130.     #define HAlignCommand "hAlign"
  131.     #define PStyleCommand "pStyle"
  132.     #define EditModeCommand "editMode"
  133. #else
  134.     /* ccHAlign */
  135.     #define HAlignCommand 3022 
  136.     
  137.     /* ccHPStyle */
  138.     #define PStyleCommand 3021
  139.  
  140.     /* ccEditMode */
  141.     #define EditModeCommand 3095
  142. #endif
  143.  
  144. #define kStandardPadSpace 9
  145.  
  146. #if Platform_Mac
  147. #define ToolBack     BackColor = {57015, 57015, 57015}
  148. #else
  149. #define ToolBack     BackColor = Dialog
  150. #endif
  151.  
  152.  
  153. Define(LineSep)
  154.     #if InDocWindow || Platform_Mac
  155.         Spacer(Height = 0, Width = 0);
  156.     #else
  157.     VList(Width = UseParent)
  158.         {
  159.         Spacer(Height = 1, Width = UseParent, BackColor = {25000, 25000, 25000} );
  160.         Spacer(Height = 1, Width = UseParent, BackColor = {65535, 65535, 65535} );
  161.         }
  162.     #endif
  163.  
  164.  
  165. Define(MainToolbarList)
  166.     HList(ToolBack, Width = UseParent)
  167.         {
  168.         /* Buttons */
  169.         HList(FullyCovered)
  170.             {
  171.             #if Platform_Win
  172.             ToolSep
  173.             PictPushButton(1040, "None", EH kLit1) // ccNewDoc
  174.                 {
  175.                 Enabled (Draw, 'cicn', 14025);
  176.                 Disabled(Draw, 'cicn', 14027); 
  177.                 Tracking(Draw, 'cicn', 14026);
  178.                 };
  179.             ToolSep
  180.             PictPushButton(1041, "None", EH kLit2) // ccOpenDoc
  181.                 {
  182.                 Enabled (Draw, 'cicn', 14028);
  183.                 Disabled(Draw, 'cicn', 14030); 
  184.                 Tracking(Draw, 'cicn', 14029);
  185.                 };
  186.             ToolSep
  187.             PictPushButton(1043, "None", EH kLit3) // ccSave
  188.                 {
  189.                 Enabled (Draw, 'cicn', 14031);
  190.                 Disabled(Draw, 'cicn', 14033); 
  191.                 Tracking(Draw, 'cicn', 14032);
  192.                 };
  193.             ToolSep
  194.             PictPushButton(1046, "None", EH kLit4) // ccPrint
  195.                 {
  196.                 Enabled (Draw, 'cicn', 14034);
  197.                 Disabled(Draw, 'cicn', 14036); 
  198.                 Tracking(Draw, 'cicn', 14035);
  199.                 };
  200.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  201.             #endif
  202.  
  203.             ToolSep
  204.             HList(FullyCovered)
  205.                 {
  206.                 PictRadioButton( EditModeCommand, 0, // ccEditMode : kEditVisual
  207.                                       EH kLit5 )
  208.                     {
  209.                     On (Draw, 'cicn', 13550);
  210.                     Off(Draw, 'cicn', 13010);
  211.                     DisabledOn (Draw, 'cicn', 13561);
  212.                     DisabledOff(Draw, 'cicn', 13561);
  213.                     TrackingOn (Draw, 'cicn', 13550);
  214.                     TrackingOff(Draw, 'cicn', 13550);
  215.                     };
  216.                 
  217.                 ToolSep
  218.                 PictRadioButton( EditModeCommand, 1, // ccEditMode : kBrowseMode
  219.                                       EH kLit6 )
  220.                     {
  221.                     On (Draw, 'cicn', 13551);
  222.                     Off(Draw, 'cicn', 13030);
  223.                     DisabledOn (Draw, 'cicn', 13562);
  224.                     DisabledOff(Draw, 'cicn', 13562);
  225.                     TrackingOn (Draw, 'cicn', 13551);
  226.                     TrackingOff(Draw, 'cicn', 13551);
  227.                     };
  228.                 
  229.                 #if !LITE_VERSION
  230.                 ToolSep
  231.                 PictRadioButton( EditModeCommand, 2, // ccEditMode : kHTMLMode
  232.                                       EH kLit7 )
  233.                     {
  234.                     On (Draw, 'cicn', 13552);
  235.                     Off(Draw, 'cicn', 13050);
  236.                     DisabledOn (Draw, 'cicn', 13563);
  237.                     DisabledOff(Draw, 'cicn', 13563);
  238.                     TrackingOn (Draw, 'cicn', 13552);
  239.                     TrackingOff(Draw, 'cicn', 13552);
  240.                     };
  241.                 #endif
  242.                 
  243.                 // For Layout documents, add a fourth edit-mode button.
  244.                 #if !LITE_VERSION
  245.                 Switch (type)
  246.                     {
  247.                     case 0: // hdContent
  248.                         CaseSafeToolSep
  249.                     
  250.                     case 1: // hdLayout
  251.                         HList(FullyCovered)
  252.                             {
  253.                             ToolSep
  254.                             PictRadioButton( EditModeCommand, 3, // ccEditMode : kEditFrames
  255.                                                   EH kLit8 )
  256.                                 {
  257.                                 On (Draw, 'cicn', 13553);
  258.                                 Off(Draw, 'cicn', 13560);
  259.                                 DisabledOn (Draw, 'cicn', 13564);
  260.                                 DisabledOff(Draw, 'cicn', 13564);
  261.                                 TrackingOn (Draw, 'cicn', 13553);
  262.                                 TrackingOff(Draw, 'cicn', 13553);
  263.                                 };
  264.                             ToolSep
  265.                             }
  266.                     
  267.                     case 2: // hdLibrary
  268.                         CaseSafeToolSep
  269.                     
  270.                     case 3: // hdSite
  271.                         CaseSafeToolSep
  272.                         
  273.                     } // Switch (type)
  274.                 #else
  275.                 CaseSafeToolSep
  276.                 #endif
  277.                 
  278.                 } // HList (edit mode group)
  279.             
  280.                                 
  281.             Switch (type)
  282.                 {
  283.                 case 0: // hdContent
  284.                 case 1: // hdLayout
  285.                     HList(FullyCovered)
  286.                         {
  287.                         Spacer(Height = UseParent, Width = kStandardPadSpace);
  288.                         
  289.                         ToolSep
  290.                         PictPushButton(3002, "None", EH kLit9) // Preview in Browser
  291.                             {
  292.                             Enabled(Draw, 'cicn',13500 );
  293.                             Disabled(Draw, 'cicn',13502 ); 
  294.                             Tracking(Draw, 'cicn',13501 );
  295.                             };
  296.                         
  297.                         ToolSep
  298.                         Spacer(Height = UseParent, Width = kStandardPadSpace);
  299.                         
  300.                         #if LITE_VERSION
  301.                         ToolSep
  302.                         PictPushButton(3319, "None", EH kLit49) // Publish (FTP Upload)
  303.                             {
  304.                             Enabled(Draw, 'cicn',14065 );
  305.                             Disabled(Draw, 'cicn',14067 ); 
  306.                             Tracking(Draw, 'cicn',14066 );
  307.                             };
  308.                         
  309.                         ToolSep
  310.                         Spacer(Height = UseParent, Width = kStandardPadSpace);
  311.                         #endif
  312.                         
  313.                         ToolSep
  314.                         PictPushButton(3101, "None", EH kLit10)
  315.                             {
  316.                             Enabled(Draw, 'cicn',13503 );
  317.                             Disabled(Draw, 'cicn',13505 ); 
  318.                             Tracking(Draw, 'cicn',13504 );
  319.                             };
  320.                         ToolSep
  321.                         PictPushButton(3109, "None", EH kLit11) // "Insert/Edit Link"
  322.                             {
  323.                             Enabled(Draw, 'cicn',13506 );
  324.                             Disabled(Draw, 'cicn',13508 ); 
  325.                             Tracking(Draw, 'cicn',13507 );
  326.                             };
  327.                         ToolSep
  328.                         PictPushButton(3105, "None", EH kLit12) // Document Options
  329.                             {
  330.                             Enabled(Draw, 'cicn',13013 );
  331.                             Disabled(Draw, 'cicn',13053 ); 
  332.                             Tracking(Draw, 'cicn',13033 );
  333.                             };
  334.                         CaseSafeToolSep
  335.                         //ToolSep
  336.                         } // HList(FullyCovered)
  337.                 
  338.                 case 2: // hdLibrary
  339.                     HList(FullyCovered)
  340.                         {
  341.                         Spacer(Height = UseParent, Width = kStandardPadSpace);
  342.                         ToolSep
  343.                         PictPushButton(3301, "None", EH kLit13) // ccNewLibraryEntry
  344.                             {
  345.                             Enabled (Draw, 'cicn', 10200);
  346.                             Disabled(Draw, 'cicn', 10202); 
  347.                             Tracking(Draw, 'cicn', 10201);
  348.                             };
  349.                         ToolSep
  350.                         Spacer(Height = UseParent, Width = kStandardPadSpace);
  351.                         
  352.                         ToolSep
  353.                         PictPushButton(3101, "None", EH kLit10)
  354.                             {
  355.                             Enabled(Draw, 'cicn',13503 );
  356.                             Disabled(Draw, 'cicn',13505 ); 
  357.                             Tracking(Draw, 'cicn',13504 );
  358.                             };
  359.                         ToolSep
  360.                         PictPushButton(3109, "None", EH kLit11) // "Insert/Edit Link"
  361.                             {
  362.                             Enabled(Draw, 'cicn',13506 );
  363.                             Disabled(Draw, 'cicn',13508 ); 
  364.                             Tracking(Draw, 'cicn',13507 );
  365.                             };
  366.                         ToolSep
  367.                         } // HList(FullyCovered)
  368.                 
  369.                 case 3: // hdSite
  370.                     Spacer(Height = 0, Width = 0);
  371.                 
  372.                 } // Switch (type)
  373.             
  374.             
  375.             Switch (type)
  376.                 {
  377.                 case 0: // hdContent
  378.                     Spacer(Height = UseParent, Width = kStandardPadSpace);
  379.                 
  380.                 default:
  381.                     Spacer(Height = UseParent, Width = kStandardPadSpace);
  382.                 }
  383.             
  384.             
  385.             Switch (editMode)
  386.                 {
  387.                 case 0: // kEditVisual
  388.                 case 1: // kBrowseMode
  389.                 case 2: // kHTMLMode
  390.                     HList(FullyCovered)
  391.                         {
  392.                         ToolSep
  393.                         PictPushButton(3013, "None", Draggable, EH kLit14)
  394.                             {
  395.                             Enabled(Draw, 'cicn',13012 );
  396.                             Disabled(Draw, 'cicn',13052 ); 
  397.                             Tracking(Draw, 'cicn',13032 );
  398.                             };                        
  399.                             
  400.                         ToolSep
  401.                         
  402.                         #if InDocWindow
  403.                         #define DocDraggable ,Draggable
  404.                         #else
  405.                         #define DocDraggable 
  406.                         #endif
  407.                         
  408.                         PictPushButton(3012, "None", EH kLit15 DocDraggable)
  409.                             {
  410.                             Enabled(Draw, 'cicn',13011 );
  411.                             Disabled(Draw, 'cicn',13051 ); 
  412.                             Tracking(Draw, 'cicn',13031 );
  413.                             };
  414.                         
  415.                         ToolSep
  416.                         Switch (type)
  417.                             {
  418.                             case 0: // hdContent
  419.                                 Spacer(Height = UseParent, Width = kStandardPadSpace );
  420.                             
  421.                             default:
  422.                                 Spacer(Height = UseParent, Width = kStandardPadSpace);
  423.                             }
  424.                         
  425.                         ToolSep
  426.                         PictPushButton(3081, "None", EH kLit16)
  427.                             {
  428.                             Enabled(Draw, 'cicn',13005 );
  429.                             Disabled(Draw, 'cicn',13045 ); 
  430.                             Tracking(Draw, 'cicn',13025 );
  431.                             };
  432.                         
  433.                         ToolSep
  434.                         PictPushButton(3080, "None", Draggable, EH kLit17)
  435.                             {
  436.                             Enabled(Draw, 'cicn',13003 );
  437.                             Disabled(Draw, 'cicn',13043 ); 
  438.                             Tracking(Draw, 'cicn',13023 );
  439.                             };
  440.                         
  441.                         ToolSep
  442.                         PictPushButton(3091, "None", Draggable, EH kLit18)
  443.                             {
  444.                             Enabled(Draw, 'cicn',13060 );
  445.                             Disabled(Draw, 'cicn',13062 ); 
  446.                             Tracking(Draw, 'cicn',13061 );
  447.                             };
  448.                         
  449.                         ToolSep
  450.                         Switch (type)
  451.                             {
  452.                             case 0: // hdContent
  453.                                 Spacer(Height = UseParent, Width = kStandardPadSpace );
  454.                             
  455.                             default:
  456.                                 Spacer(Height = UseParent, Width = kStandardPadSpace);
  457.                             }
  458.     
  459.                         /* Text Alignment buttons */
  460.                         ToolSep
  461.                         PictRadioButton(HAlignCommand, 0, EH kLit19)
  462.                             {
  463.                             On (Draw, 'cicn', 10019);
  464.                             Off(Draw, 'cicn', 10016);
  465.                             DisabledOn (Draw, 'cicn', 10022);
  466.                             DisabledOff(Draw, 'cicn', 10022);
  467.                             TrackingOn (Draw, 'cicn', 10019);
  468.                             TrackingOff(Draw, 'cicn', 10019);
  469.                             };
  470.                         ToolSep
  471.                         PictRadioButton(HAlignCommand, 1, EH kLit20)
  472.                             {
  473.                             On (Draw, 'cicn', 10020);
  474.                             Off(Draw, 'cicn', 10017);
  475.                             DisabledOn (Draw, 'cicn', 10023);
  476.                             DisabledOff(Draw, 'cicn', 10023);
  477.                             TrackingOn (Draw, 'cicn', 10020);
  478.                             TrackingOff(Draw, 'cicn', 10020);
  479.                             };
  480.                         ToolSep
  481.                         PictRadioButton(HAlignCommand, 2, EH kLit21)
  482.                             {
  483.                             On (Draw, 'cicn', 10021);
  484.                             Off(Draw, 'cicn', 10018);
  485.                             DisabledOn (Draw, 'cicn', 10024);
  486.                             DisabledOff(Draw, 'cicn', 10024);
  487.                             TrackingOn (Draw, 'cicn', 10021);
  488.                             TrackingOff(Draw, 'cicn', 10021);
  489.                             };
  490.                         ToolSep
  491.                         } // HList(FullyCovered)
  492.                 
  493.                 case 3: // kEditFrames
  494.                     #if !LITE_VERSION    
  495.                     HList(FullyCovered)
  496.                         {
  497.                         ToolSep
  498.                         PictPushButton(3306, "None", EH kLit22) // ccSubdivideVert
  499.                             {
  500.                             Enabled (Draw, 'cicn', 13604);
  501.                             Disabled(Draw, 'cicn', 13603); 
  502.                             Tracking(Draw, 'cicn', 13605);
  503.                             };
  504.                         
  505.                         ToolSep
  506.                         PictPushButton(3307, "None", EH kLit23) // ccSubdivideHor
  507.                             {
  508.                             Enabled (Draw, 'cicn', 13601);
  509.                             Disabled(Draw, 'cicn', 13600); 
  510.                             Tracking(Draw, 'cicn', 13602);
  511.                             };
  512.                         
  513.                         ToolSep
  514.                         PictPushButton(3350, "None", EH kLit48) // ccNewNamedFrameEntrySibling
  515.                             {
  516.                             Enabled (Draw, 'cicn', 14058);
  517.                             Disabled(Draw, 'cicn', 14060); 
  518.                             Tracking(Draw, 'cicn', 14059);
  519.                             };
  520.                         ToolSep
  521.                         }
  522.                     #else
  523.                     Spacer(Height = 0, Width = 0);
  524.                     #endif // !LITE_VERSION
  525.                 } // Switch (editMode)
  526.             
  527.             Spacer(Height = UseParent, Width = 7);
  528.             
  529.             #if Platform_Mac
  530.                 HelpView(Width = kHelpViewWidth, Height = kHelpViewHeight, kHelpFont);
  531.             #endif
  532.             } //HList (Buttons)
  533.         } //HList
  534.  
  535.  
  536. Define(StyleToolbarList)
  537.     HList(ToolBack, Width = UseParent)
  538.         {
  539.         Margin(0,0,6,0)
  540.             #if Platform_Mac
  541.                 IntegerPopup( "", 0, PStyleCommand, Width = kParagraphStylePopupWidth,
  542.                                   EH kLit25, DontBind )
  543.             #else
  544.                 IntegerPopup( "", 0, PStyleCommand, Width = kParagraphStylePopupWidth,Height = 22,
  545.                                   EH kLit25, DontBind )
  546.             #endif
  547.                 {
  548.                 IntItem(kLit26,  0); // hpPlain
  549.                 IntItem(kLit27,  1); // hpPreformatted
  550.                 IntItem(kLit28,  2); // hpAddress
  551.                 IntItem(kLit29,  3); // hpHead1
  552.                 IntItem(kLit30,  4); // hpHead2
  553.                 IntItem(kLit31,  5); // hpHead3
  554.                 IntItem(kLit32,  6); // hpHead4
  555.                 IntItem(kLit33,  7); // hpHead5
  556.                 IntItem(kLit34,  8); // hpHead6
  557.                 IntItem(kLit35,  9); // hpBullet
  558.                 IntItem(kLit36, 12); // hpNumbered
  559.                 IntItem(kLit37, 14); // hpTerm
  560.                 IntItem(kLit38, 13); // hpDefinition
  561.                 };
  562.         
  563.         HList(FullyCovered)
  564.             {
  565.             ToolSep
  566.             PictPushButton(3115, "None", Draggable, EH kLit47) //ccNumberedListEntry
  567.                 {
  568.                 Enabled (Draw, 'cicn', 14050);
  569.                 Disabled(Draw, 'cicn', 14052); 
  570.                 Tracking(Draw, 'cicn', 14051);
  571.                 };
  572.             ToolSep
  573.             PictPushButton(3090, "None", Draggable, EH kLit39) // ccBulletListEntry
  574.                 {
  575.                 Enabled (Draw, 'cicn', 13509);
  576.                 Disabled(Draw, 'cicn', 13511); 
  577.                 Tracking(Draw, 'cicn', 13510);
  578.                 };
  579.             ToolSep
  580.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  581.             
  582.             ToolSep
  583.             PictPushButton(3024, "None", EH kLit40) // ccIndentRight
  584.                 {
  585.                 Enabled (Draw, 'cicn', 14001);
  586.                 Disabled(Draw, 'cicn', 14000); 
  587.                 Tracking(Draw, 'cicn', 14002);
  588.                 };
  589.             ToolSep
  590.             PictPushButton(3023, "None", EH kLit41) // ccIndentLeft
  591.                 {
  592.                 Enabled (Draw, 'cicn', 14004);
  593.                 Disabled(Draw, 'cicn', 14003); 
  594.                 Tracking(Draw, 'cicn', 14005);
  595.                 };
  596.             ToolSep
  597.             Spacer(Height = UseParent, Width = kStandardPadSpace );
  598.             
  599.             ToolSep
  600.             PictPushButton(3027, "None", EH kLit42) // ccDecreaseSize
  601.                 {
  602.                 Enabled (Draw, 'cicn', 14007);
  603.                 Disabled(Draw, 'cicn', 14006); 
  604.                 Tracking(Draw, 'cicn', 14008);
  605.                 };
  606.             ToolSep
  607.             PictPushButton(3026, "None", EH kLit43) // ccIncreaseSize
  608.                 {
  609.                 Enabled (Draw, 'cicn', 14010);
  610.                 Disabled(Draw, 'cicn', 14009); 
  611.                 Tracking(Draw, 'cicn', 14011);
  612.                 };
  613.             ToolSep
  614.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  615.             
  616.             ToolSep
  617.             PictPushButton(3031, "None", EH kLit44) // ccHCharBits + bold
  618.                 {
  619.                 Enabled (Draw, 'cicn', 14013);
  620.                 Disabled(Draw, 'cicn', 14012); 
  621.                 Tracking(Draw, 'cicn', 14014);
  622.                 };
  623.             ToolSep
  624.             PictPushButton(3032, "None", EH kLit45) // ccHCharBits + italic
  625.                 {
  626.                 Enabled (Draw, 'cicn', 14016);
  627.                 Disabled(Draw, 'cicn', 14015); 
  628.                 Tracking(Draw, 'cicn', 14017);
  629.                 };
  630.             ToolSep
  631.             PictPushButton(3033, "None", EH kLit46) // ccHCharBits + teletype
  632.                 {
  633.                 Enabled (Draw, 'cicn', 14019);
  634.                 Disabled(Draw, 'cicn', 14018); 
  635.                 Tracking(Draw, 'cicn', 14020);
  636.                 };
  637.             ToolSep
  638.             
  639.             Spacer(Height = UseParent, Width = 4);
  640.             
  641.             #if Platform_Mac
  642.             VList(Height = UseParent)
  643.                 {
  644.                 Spacer(Height = 2, Width = UseParent);
  645.                 GenericView("TextColorPopup");
  646.                 Spacer(Height = UseParent, Width = UseParent);
  647.                 }
  648.             #else
  649.             GenericView("TextColorPopup");
  650.             #endif
  651.             
  652.             } // Second row buttons
  653.         
  654.         } // HList (style commands)
  655.  
  656.  
  657. Define(MainList)
  658.     VList(Width = UseParent, ToolBack)
  659.         {
  660.         Switch (showToolbars, Width = UseParent)
  661.             {
  662.             #if InDocWindow
  663.                 case 1:
  664.                     VList(Width = UseParent)
  665.                         {
  666.                         Call(MainToolbarList);
  667.                         Switch (styleToolbars, Width = UseParent)
  668.                             {
  669.                             case 1:
  670.                                 Spacer(Width = 0, Height = 6);
  671.                             default:
  672.                                 Spacer(Width = 0, Height = 0);
  673.                             }
  674.                         }
  675.             #else
  676.                 case 2:
  677.                     VList(Width = UseParent)
  678.                         {
  679.                         Call(LineSep);
  680.                         Spacer(Height = 4, Width = 0);
  681.                         Call(MainToolbarList);
  682.                         
  683.                         Switch(styleToolbars)
  684.                             {
  685.                             case 2: 
  686.                                 Spacer(Height = 4, Width = 0);
  687.                             default: 
  688.                                 Spacer(Height = 0, Width = 0);
  689.                             }
  690.                         }
  691.             #endif
  692.             
  693.             default:
  694.                 Spacer(Width=0,Height=0);
  695.             } // Switch (showToolbars)
  696.         
  697.         
  698.         Switch (styleToolbars, Width = UseParent)
  699.             {
  700.             #if InDocWindow
  701.                 case 1:
  702.                     Call(StyleToolbarList);
  703.             #else
  704.                 case 2:
  705.                     VList(Width = UseParent)
  706.                         {
  707.                         Call(LineSep);
  708.                         Spacer(Height = 4, Width = 0);
  709.                         Call(StyleToolbarList);
  710.                         }
  711.             #endif
  712.     
  713.             default:
  714.                 Spacer(Width=0,Height=0);
  715.             } // Switch (styleToolbars)
  716.             
  717.         #ifdef  TryMe
  718.         IntegerPopup("Type: ", Default, type)
  719.             {
  720.             IntItem("0", 0);
  721.             IntItem("1", 1);
  722.             IntItem("2", 2);
  723.             IntItem("3", 3);
  724.             };
  725.             
  726.         IntegerPopup("EditMode: ", Default, editMode)
  727.             {
  728.             IntItem("0", 0);
  729.             IntItem("1", 1);
  730.             IntItem("2", 2);
  731.             IntItem("3", 3);
  732.             };
  733.             
  734.             
  735.         #endif
  736.         } // VList (MainList)
  737.  
  738.  
  739. #if Platform_Mac
  740.     Margin(2,2,2,3, Custom = "HeaderBarMarginProc", Width = UseParent)
  741.         Margin(7,4,3,5, ToolBack)
  742.             Call(MainList);
  743. #else
  744. Define(MainWindowLineSep)
  745.     VList(Width = UseParent, BackColor = Dialog)
  746.         {
  747.         Spacer(Height = 3, Width = UseParent);
  748.         Spacer(Height = 1, Width = UseParent, BackColor = DkGray );
  749.         Spacer(Height = 1, Width = UseParent, BackColor = Black );
  750.         }
  751.  
  752.     VList(Width = UseParent, ToolBack)
  753.         {
  754.         Margin(4,3,3,0, ToolBack, Width = UseParent)
  755.             Call(MainList);
  756.             
  757.         #if InDocWindow
  758.         Switch(styleToolbars, Width = UseParent)
  759.             {
  760.             case 1:
  761.                 Call(MainWindowLineSep);
  762.                 
  763.             default:
  764.                 Switch(showToolbars, Width = UseParent)
  765.                     {
  766.                     case 1: 
  767.                         Call(MainWindowLineSep);
  768.                             
  769.                     default: 
  770.                         Spacer(Height = 0, Width = 0);
  771.                     } //Inner Switch
  772.             } //Outer Switch
  773.         #else //InDocWindow
  774.         Spacer(Height = 2, Width = UseParent);        
  775.         
  776.             #if !Modern_System
  777.             Call(MainWindowLineSep);
  778.             #endif
  779.         
  780.         #endif
  781.         
  782.         
  783.         }
  784. #endif
  785.  
  786.  
  787.